unit BaseF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

type
  TBaseFrame = class(TFrame)
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
    function GetTitle: String; virtual; abstract;
    function SafeToClose: Boolean; virtual;
    procedure Close; virtual;
    procedure Activate; virtual;
  end;

TBaseFrameClass = class of TBaseFrame;

implementation
uses Utils, ProgramM;

{$R *.dfm}

{ TBaseFrame }

procedure TBaseFrame.Activate;
begin

end;

procedure TBaseFrame.Close;
begin

end;

constructor TBaseFrame.Create(AOwner: TComponent);
begin
  inherited;
  ProgramModule.SetScaling(Self);
end;

function TBaseFrame.SafeToClose: Boolean;
begin
  Result := False;
end;

end.
